0 DATA255,255,255,231,255,255,255,0,255,159,255,255,255,249,255,0,255,159,255 1 DATA231,255,249,255,0,255,153,255,255,255,153,255,0,255,153,255,231,255,153 2 DATA255,0,255,153,255,153,255,153,255,0,0,0,0,24,24,0,0,0,240,96,96,102,9,9,6 3 POKE53265,0:POKE53280,5:POKE53281,5:A=TI:B=RND(-A):SC=5000:S=54272:GOSUB1000 4 POKES+24,5:POKE53272,(PEEK(53272)AND240)+12:POKEA,127:POKE1,51:POKE781,9 5 POKE782,0:POKE90,0:POKE91,216:POKE88,0:POKE89,56:SYS41964:POKE1,55:POKEA,129 6 POKE56,48:A=12288:FORB=ATOA+7:READC:POKEB,C:NEXT:A=A+216:FORB=ATOA+39:READC 7 POKEB,C:NEXT:A=A+80:FORB=ATOA+14:READC:POKEB,C:NEXT:R=12:DIMP(21),C$(22) 8 A$(0)="[144] [146]":A$(1)="[144] [209] [146]":A$(2)="[144][209] [209][146]":A$(3)="[144][209] [146]":A$(4)="[144] [209][146]" 9 A$=" BIG ":B$="HARDWAY ":C$=" CRAPS ":D$=" PLACE ":C$(0)=" " 10 C$(1)=C$(0):C$(2)="ANY CRAPS ":C$(3)=" ELEVEN ":C$(4)=" FIELD " 11 C$(5)=A$+"6 ":C$(6)=A$+"8 ":C$(7)=B$+"4 ":C$(8)=B$+"6 ":C$(9)=B$+"8 " 12 C$(10)=B$+"10":C$(11)=C$+"2 ":C$(12)=C$+"3 ":C$(13)=C$+"12 ":TY%=4:LN%=4 13 C$(14)=" SEVEN ":C$(15)=D$+"4 ":C$(16)=D$+"5 ":C$(17)=D$+"6 " 14 C$(18)=D$+"8 ":C$(19)=D$+"9 ":C$(20)=D$+"10 ":C$(21)=C$(1):C$(22)=C$(0) 15 PRINT"[147][158][176][195][195][195][178][195][195][195][178][195][195][178][195][195][178][195][195][178][195][195][178][195][195][178][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][174]"; 16 A$="[194] [194] [144]":B$=" [158][194] [194] [194] [194] [194] [194] ":PRINTA$"D"B$"[194] SEVEN [158][194]"; 17 C$=" [158][171][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][195]":PRINTA$"O"C$"[179] 4&1 [194]"; 18 PRINTA$"N"C$"[219][195][195][195][195][195][195][195][195][195][195][195][179]";:PRINTA$"'"B$"[171][195][195]HARDWAY[195][195][179]"; 19 PRINT"[194] P [194] [144]T [158][194] 4[194] 5[194] 6[194] 8[194] 9[194] 10[194] \ \ [194] ^ ^ [194]";:C$="[195][195][195][195][195][219][195][195][195][195][195][179]" 20 PRINT"[194] A [194] [144] "B$"[194] 9&1 [194] 7&1 [194]";:B$="[158][194] " 21 PRINT"[194] S [194] [144]P [158][171][195][195][177][195][195][177][195][195][177][195][195][177][195][195][177][195][195][195][219]"C$;:PRINT"[194] S [194][144] A "B$"[194] ] ] [194] [ [ [194]"; 22 PRINTA$"S [158][194] 3%4%9%10%11 [194] 9&1 [194] 7&1 [194]"; 23 PRINT"[194] L [194] [144]S [158][194] % % [171]"C$; 24 PRINT"[194] I [194] [194] 2 12 [194] @ [ [158][194] _ _ [158][194]"; 25 PRINT"[194] N [194][144]BAR"B$"[194]15&1 [194] 30&1[194]";:A$="[194] [171][195][195][195][219][195][195][195]" 26 PRINT"[194] E [194][144]_ _[158][194] FIELD [171]"C$;:B$=C$(0)+" " 27 PRINTA$"[174]"B$"[194] _ ^ [158][194] @ @ [158][194]";:C$="[195][195][195][195][195][195][195][195][195][195]" 28 PRINT"[194] [194]BIG[158][194]BIG[158][171]"C$"[195][195][195][195][179]15&1 [194] 30&1[194]";:PRINTA$"[179]"B$"[171][195][195][195][195][195][177][195][195][195][195][195][179]"; 29 A$="[194] [194] [194] [194]":PRINTA$"[144] DON'T BAR [158][194] ANY CRAPS [158][194]"; 30 PRINT"[194] [194] 6 [158][194] 8 [158][194][144] PASS _ _ [158][194] 7&1 [194]";:PRINTA$B$"[171]"C$"[195][189]"; 31 PRINT"[194] [202][195][195][195][177][195][195][195][177]"C$"[195][195][195][195][179][144][176]"C$"[174]";:A$="[158][194] " 32 B$=" [194][144][194] [194]":PRINTA$B$;:PRINT"[158][194] PASS LINE"B$; 33 PRINTA$B$;:PRINT"[158][202]"C$C$"[195][195][195][195][195][195][189][144][173]"C$"";:POKE2023,125:POKE56295,0:GOTO64 34 X=29:FORY=21TO23:XY$=" ":GOSUB35:NEXT:RETURN 35 POKE783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTXY$; 36 POKE783,PEEK(783)OR1:RETURN 37 IFSC<2THEN34 38 GOSUB34:Y=21:XY$="YOU HAVE: ":GOSUB35:X=36-LEN(STR$(SC)):Y=23 39 XY$="$"+STR$(SC):GOSUB35:GOSUB40:RETURN 40 POKES+1,R:POKES+5,9:POKES+4,21:FORZ=1TO900:NEXT:POKES+4,20:RETURN 41 GOSUB34:Y=21:XY$="<[158]P>ASS":GOSUB35:Y=22:XY$=" <[158]D>ON'T":GOSUB35 42 X=35:Y=23:XY$="PASS":GOSUB35:GOTO40 43 GOSUB34:Y=21:XY$="HOW MUCH: ":GOSUB35:X=33:Y=23:XY$="":GOSUB35 44 GOSUB261:POKE1983,66:POKE56255,0:P(A)=VAL(QX$):IFP(A)<2 OR P(A)>2000THEN43 45 SC=SC-P(A):IFSC<0THENSC=SC+P(A):GOTO43 46 RETURN 47 GOSUB34:Y=21:XY$=" <[158]B>ET":GOSUB35:Y=23:XY$=" <[158]R>OLL ":GOSUB35:GOTO40 48 ON T GOTO49,50,51,52,53,54 49 U=0:V=1:W=0:GOTO55 50 U=3:V=0:W=4:GOTO55 51 U=3:V=1:W=4:GOTO55 52 U=2:V=0:W=2:GOTO55 53 U=2:V=1:W=2:GOTO55 54 U=2:V=2:W=2 55 Y=21:XY$=A$(U):GOSUB35:Y=22:XY$=A$(V):GOSUB35:Y=23:XY$=A$(W):GOSUB35 56 IFZZ=6THEN40 57 SS=5*T:POKES+1,SS:POKES+5,2:POKES+6,5:POKES+4,33:POKES+4,32:RETURN 58 FORX1=1226TO1546STEP40:POKEX1,PEEK(X1)+N:NEXT:FORX1=1913TO1921 59 POKEX1,PEEK(X1)+N:NEXT:RETURN 60 FORX1=1070TO1430STEP40:POKEX1,PEEK(X1)+N:NEXT:FORX1=1719TO1723 61 POKEX1,PEEK(X1)+N:NEXT:FORX1=1759TO1763:POKEX1,PEEK(X1)+N:NEXT:RETURN 62 XY$=""+XY$:Y=21:GOSUB35:Y=23:XY$=" LOSES":GOSUB35:GOSUB40:RETURN 63 XY$=""+XY$:Y=21:GOSUB35:Y=23:XY$=" WINS":GOSUB35:GOSUB40:RETURN 64 POKE53265,27:GOSUB37:IFSC<2THEN258 65 GOSUB41:N=128:B=-1:PT=0 66 GETZ$:IFZ$=""THEN66 67 IFZ$="P"THENA=1:GOSUB58:GOTO70 68 IFZ$="D"THENA=2:GOSUB60:GOTO70 69 GOSUB277:GOTO66 70 GOSUB43 71 B=B+1:IFB>1THENB=1 72 GOSUB37 73 GOSUB47 74 GETZ$:IFZ$=""THEN74 75 IFZ$="R"THEN78 76 IFZ$="B"THENC=3:GOTO214 77 GOSUB277:GOTO74 78 IFB=1THEN80 79 GOSUB34:Y=21:XY$=" COME-OUT":GOSUB35:Y=23:XY$=" ROLL":GOSUB35:GOSUB40 80 GOSUB34:R=30:FORZZ=1TO6:T=INT(RND(1)*6)+1:IFT=D1THENT=T+1 81 IFT=7THENT=1 82 X=30:D1=T:GOSUB48:T=INT(RND(1)*6)+1:IFT=D2THENT=T+1 83 IFT=7THENT=1 84 X=35:D2=T:GOSUB48:NEXT:GOSUB34:T=D1+D2:R=12:PRINT"" 85 GOSUB34:N=-128:ON T-1 GOTO86,96,107,120,129,141,150,162,172,184,193 86 IFB=1THEN89 87 U=0:IFP(1)>0THENGOSUB204:GOTO89 88 U=1:GOSUB207 89 U=0:IFP(3)>0THENU=1:C=3:W=8:GOSUB211 90 U=0:IFP(4)>0THENC=4:GOSUB211 91 IFP(5)>0THENU=1:C=5:W=3:GOSUB211 92 U=0:IFP(12)>0THENU=1:C=12:W=31:GOSUB211 93 U=0:FORC=13TO15:IFP(C)>0THENGOSUB211 94 NEXT:IFB=1THEN71 95 GOTO64 96 IFB=1THEN99 97 U=0:IFP(1)>0THENGOSUB204:GOTO99 98 U=1:GOSUB207 99 U=0:IFP(3)>0THENU=1:C=3:W=8:GOSUB211 100 U=0:IFP(4)>0THENC=4:GOSUB211 101 IFP(5)>0THENU=1:C=5:W=2:GOSUB211 102 U=0:IFP(13)>0THENU=1:C=13:W=16:GOSUB211 103 U=0:IFP(14)>0THENC=14:GOSUB211 104 IFP(15)>0THENC=15:GOSUB211 105 IFB=1THEN71 106 GOTO64 107 Q=0:IFB=1THEN109 108 POKE1074,81:POKE55346,6:PT=4:GOTO111 109 U=0:IFPT=4 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO111 110 IFPT=4THENGOSUB207:Q=1 111 U=0:IFP(3)>0THENC=3:GOSUB211 112 IFP(4)>0THENC=4:GOSUB211 113 IFP(5)>0THENU=1:C=5:W=2:GOSUB211 114 U=0:IFP(8)>0 AND D1=2 AND D2=2THENU=1:C=8:W=8:GOSUB211:GOTO116 115 IFP(8)>0THENC=8:GOSUB211 116 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 117 NEXT:IFP(16)>0THENU=1:C=16:W=3:GOSUB211 118 IFQ=0THEN71 119 GOTO64 120 Q=0:IFB=1THEN122 121 POKE1077,81:POKE55349,6:PT=5:GOTO124 122 U=0:IFPT=5 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO124 123 IFPT=5THENGOSUB207:Q=1 124 U=0:FORC=3TO5:IFP(C)>0THENGOSUB211 125 NEXT:FORC=12TO15:IFP(C)>0THENGOSUB211 126 NEXT:IFP(17)>0THENU=1:C=17:W=2.5:GOSUB211 127 IFQ=0THEN71 128 GOTO64 129 Q=0:IFB=1THEN131 130 POKE1080,81:POKE55352,6:PT=6:GOTO133 131 U=0:IFPT=6 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO133 132 IFPT=6THENGOSUB207:Q=1 133 U=0:FORC=3TO5:IFP(C)>0THENGOSUB211 134 NEXT:IFP(6)>0THENU=1:C=6:W=2:GOSUB211 135 U=0:IFP(9)>0 AND D1=3 AND D2=3THENU=1:C=9:W=10:GOSUB211:GOTO137 136 IFP(9)>0THENC=9:GOSUB211 137 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 138 NEXT:IFP(18)>0THENU=1:C=18:W=2.2:GOSUB211 139 IFQ=0THEN71 140 GOTO64 141 IFB=1THEN144 142 U=0:IFP(2)>0THENGOSUB207:GOTO146 143 U=1:GOSUB204:GOTO146 144 U=0:IFP(1)>0THENGOSUB204:GOTO146 145 U=1:GOSUB207 146 U=0:FORC=3TO14:IFP(C)>0THENGOSUB211 147 NEXT:IFP(15)>0THENU=1:W=5:GOSUB211 148 U=0:FORC=16TO21:IFP(C)>0THENGOSUB211 149 NEXT:GOTO64 150 Q=0:IFB=1THEN152 151 POKE1083,81:POKE55355,6:PT=8:GOTO154 152 U=0:IFPT=8 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO154 153 IFPT=8THENGOSUB207:Q=1 154 U=0:FORC=3TO5:IFP(C)>0THENGOSUB211 155 NEXT:IFP(7)>0THENU=1:C=7:W=2:GOSUB211 156 U=0:IFP(10)>0 AND D1=4 AND D2=4THENU=1:C=10:W=10:GOSUB211:GOTO158 157 IFP(10)>0THENC=10:GOSUB211 158 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 159 NEXT:IFP(19)>0THENU=1:C=19:W=2.2:GOSUB211 160 IFQ=0THEN71 161 GOTO64 162 Q=0:IFB=1THEN164 163 POKE1086,81:POKE55358,6:PT=9:GOTO166 164 U=0:IFPT=9 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO166 165 IFPT=9THENGOSUB207:Q=1 166 U=0:FORC=3TO4:IFP(C)>0THENGOSUB211 167 NEXT:IFP(5)>0THENU=1:C=5:W=2:GOSUB211 168 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 169 NEXT:IFP(20)>0THENU=1:C=20:W=2.5:GOSUB211 170 IFQ=0THEN71 171 GOTO64 172 Q=0:IFB=1THEN174 173 POKE1089,81:POKE55361,6:PT=10:GOTO176 174 U=0:IFPT=10 AND P(1)>0THENU=1:GOSUB204:Q=1:GOTO176 175 IFPT=10THENGOSUB207:Q=1 176 U=0:FORC=3TO4:IFP(C)>0THENGOSUB211 177 NEXT:IFP(5)>0THENU=1:C=5:W=2:GOSUB211 178 U=0:IFP(11)>0 AND D1=5 AND D2=5THENU=1:C=11:W=8:GOSUB211:GOTO180 179 IFP(11)>0THENC=11:GOSUB211 180 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 181 NEXT:IFP(21)>0THENU=1:C=21:W=3:GOSUB211 182 IFQ=0THEN71 183 GOTO64 184 IFB=1THEN187 185 U=0:IFP(1)>0THENU=1:GOSUB204:GOTO187 186 GOSUB207 187 U=0:IFP(3)>0THENC=3:GOSUB211 188 IFP(4)>0THENU=1:C=4:W=16:GOSUB211 189 U=0:IFP(5)>0THENU=1:C=5:W=2:GOSUB211 190 U=0:FORC=12TO15:IFP(C)>0THENGOSUB211 191 NEXT:IFB=1THEN71 192 GOTO64 193 IFB=1THEN196 194 U=0:IFP(1)>0THENGOSUB204:GOTO196 195 U=1:GOSUB207 196 U=0:IFP(3)>0THENU=1:C=3:W=8:GOSUB211 197 U=0:IFP(4)>0THENC=4:GOSUB211 198 IFP(5)>0THENU=1:C=5:W=3:GOSUB211 199 U=0:FORC=12TO13:IFP(C)>0THENGOSUB211 200 NEXT:IFP(14)>0THENU=1:C=14:W=31:GOSUB211 201 U=0:IFP(15)>0THENC=15:GOSUB211 202 IFB=1THEN71 203 GOTO64 204 XY$="PASS LINE":IFU=1THENSC=SC+2*P(1):GOSUB63:GOTO206 205 GOSUB62 206 GOSUB58:P(1)=0:GOTO210 207 XY$="DON'T PASS":IFU=1THENSC=SC+2*P(2):GOSUB63:GOTO209 208 GOSUB62 209 GOSUB60:P(2)=0 210 FORX1=1074TO1089STEP3:POKEX1,32:NEXT:RETURN 211 XY$=C$(C-1):IFU=1THENSC=SC+W*P(C):SC=INT(SC):GOSUB63:GOTO213 212 GOSUB62 213 P(C)=0:O=1:GOSUB231:O=0:RETURN 214 PRINT"":POKE1932,107:POKE1943,115:X=29 215 GETZ$:IFZ$=""THEN220 216 IFZ$=CHR$(17)THENC=C+1:IFC>21THENC=3 217 IFZ$=CHR$(145)THENC=C-1:IFC<3THENC=21 218 IFZ$=CHR$(13) OR Z$="X"THEN221 219 GOSUB277:GOTO215 220 FORY=21TO23:XY$=C$((C-2)+(Y-21)):GOSUB35:NEXT:GOTO215 221 IFC=2 OR C=22 OR Z$="X"THENPOKE1932,93:POKE1943,93:GOTO73 222 A=C:IFP(A)>0THENSC=SC+P(A):P(A)=0:N=-128:O=1:GOSUB232:O=0:GOSUB38:GOTO214 223 IFSC<2THEN215 224 IFC=16 AND PT=4THEN215 225 IFC=17 AND PT=5THEN215 226 IFC=18 AND PT=6THEN215 227 IFC=19 AND PT=8THEN215 228 IFC=20 AND PT=9THEN215 229 IFC=21 AND PT=10THEN215 230 FORX1=1933TO1942:POKEX1,PEEK(X1)+128:NEXT:FORZ=1TO500:NEXT:N=128 231 W=7:IFC>12THEN233 232 ON C-2 GOTO234,235,236,237,238,239,240,241,242,243 233 ON C-12 GOTO244,245,246,247,248,249,250,251,252 234 U=1733:V=1741:W=2:GOTO253 235 U=1612:V=1616:GOTO254 236 U=1559:V=1563:GOTO253 237 U=1749:V=1751:W=2:GOTO253 238 U=1753:V=1755:W=2:GOTO253 239 U=1378:V=1382:W=2:GOTO254 240 U=1252:V=1256:W=2:GOTO254 241 U=1372:V=1376:W=2:GOTO254 242 U=1258:V=1262:W=2:GOTO254 243 U=1618:V=1622:GOTO254 244 U=1492:V=1496:GOTO254 245 U=1498:V=1502:GOTO254 246 U=1095:V=1099:W=2:GOTO253 247 U=1233:V=1234:GOTO253 248 U=1236:V=1237:GOTO253 249 U=1239:V=1240:GOTO253 250 U=1242:V=1243:GOTO253 251 U=1245:V=1246:GOTO253 252 U=1248:V=1250 253 FORX1=UTOV:GOTO255 254 FORX1=UTOVSTEP2 255 POKEX1,PEEK(X1)+N:POKEX1+54272,W:NEXT:IFO=1THENRETURN 256 GOSUB43:GOSUB37:IFSC<2THENZ$="X":GOTO221 257 GOTO214 258 GOSUB34:Y=21:XY$="PLAY AGAIN":GOSUB35:Y=23:XY$=" (Y/N)?":GOSUB35 259 WAIT198,1:GETZ$:IFZ$<>"Y"THENPOKE53280,14:POKE53281,6:PRINT"[147][154]";:END 260 SC=5000:GOSUB37:GOTO65 261 QX$="":POKE198,0:UX=53280 262 GETAX$:PRINT"[164]"+CHR$(157);:FORZX=1TO30:NEXT 263 IFAX$=""THENPRINT" "+CHR$(157);:FORZX=1TO30:NEXT:GOTO262 264 IFAX$=CHR$(13)THENPRINTCHR$(32):RETURN 265 IF(AX$=CHR$(20)ANDLEN(QX$))THENQX$=LEFT$(QX$,LEN(QX$)-1):GOTO275 266 IFLEN(QX$)>=LN%THENTX%=PEEK(UX):POKEUX,1:POKEUX,TX%:GOTO262 267 IF((TY%AND1)=1)AND(AX$>="A")AND(AX$<="Z")THEN274 268 IF((TY%AND2)=2)AND(AX$>="[193]")AND(AX$<="[218]")THEN274 269 IF((TY%AND4)=4)AND(AX$>="0")AND(AX$<="9")THEN274 270 IF((TY%AND8)=8)AND(AX$>=CHR$(32))AND(AX$<=CHR$(127))THEN274 271 IFAX$=CHR$(32)THEN274 272 IFTY%=0THEN274 273 GOTO262 274 QX$=QX$+AX$ 275 PRINTAX$;:IFAX$=CHR$(34)THENPOKE212,0 276 GOTO262 277 IFZ$=CHR$(133)THEN280 279 RETURN 280 PRINT"QUIT:ARE YOU SURE? (Y/N)" 281 GETA$:IFA$=""THEN281 282 IFA$="Y"ORA$="[217]"THEN285 283 IFA$="[206]"ORA$="N"THEN290 284 GOTO281 285 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 286 IFER<>63THENPOKE53280,14:POKE53281,6:PRINT"[147][154]";:END 287 LOAD"HELLO CONNECT",8 290 PRINT"[158] PASS LINE " 295 RETURN 1000 A=56333:FORI=0TO24:POKES+I,0:NEXT:RETURN